home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / S / GetFile < prev    next >
Text File  |  1997-06-05  |  297b  |  12 lines
  1. /* GetFile and pass result to CDPrefs */
  2.  
  3. parse arg variable default
  4. address 'Gui4Cli'
  5.  
  6. path = left(default,max(pos('/',default),pos(':',default)))
  7. file = substr(default,max(pos('/',default),pos(':',default)) + 1)
  8.  
  9. 'SetVar' variable  '"`RequestFile drawer' path 'file' file 'title' variable'`"'
  10.  
  11.  
  12.